home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BBS / FWKCS118.ARJ / REPLACE.BAT < prev    next >
DOS Batch File  |  1992-09-11  |  5KB  |  149 lines
  1. @echo off
  2. cls
  3. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.18.
  4. echo - (C)Copyright Frederick W. Kantor 1989-1992. All rights reserved.
  5. echo -
  6. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  7. echo - risk. For safety, please have proper backups of your files.
  8. echo -
  9. echo - REPLACE.BAT to replace a working FWKCS(TM) system, Ver. 1.12 or later;
  10. echo - for use in same directory with FWKCS118.ZIP, FWKCS.118, and FWKCS_TM.118.
  11. echo -   To proceed, have QBASIC, GWBASIC, BASICA, or BASIC available on
  12. echo -                 your path, as appropriate for your operating system;
  13. echo -               have a working copy of FWKCS in \CSA, containing your
  14. echo -                 macros, paths, etc.
  15. echo -      (If you are installing FWKCS(TM) for the first time, use INSTALL.BAT.)
  16. echo -                                                               ~~~~~~~~~~~
  17. echo -  Usage:   REPLACE d D N "<enter>"
  18. echo -  where  d  without ":" is the drive for the \CS directory
  19. echo -         D  without ":" is the drive for the \CSA directory
  20. echo -         N = 0 get default settings from old \CSA\FWKCS, Ver. 1.12 or later.
  21. echo -             1 install default settings for Ver. 1.18 (including new options).
  22. if .%1 == ./* goto end
  23. if .%1 == . goto nd
  24. if .%2 == . goto nod2
  25. if .%3 == .0 goto aa
  26. if not .%3 == .1 goto bi
  27. :aa
  28. echo -
  29. echo -  Are these drives correct:  %1:\CS  and  %2:\CSA ?  If not, stop now!
  30. echo -  To quit, press Ctrl+C, then y                            ~~~~~~~~
  31. echo -
  32. pause
  33. if not exist fwkcs118.zip goto nv118
  34. if exist 0_setup.bat del 0_setup.bat > nul
  35. if exist 0_setup.bat attrib -r 0_setup.bat > nul
  36. if exist 0_setup.bat del 0_setup.bat > nul
  37. pkunzip 0_setup.bat > nul
  38. if errorlevel 1 goto zex
  39. goto nz
  40. :zex
  41. if exist 2_setup.bat del 2_setup.bat > nul
  42. if exist 2_setup.bat attrib -r 2_setup.bat > nul
  43. if exist 2_setup.bat del 2_setup.bat > nul
  44. if exist s_setup.bat del s_setup.bat > nul
  45. if exist s_setup.bat attrib -r s_setup.bat > nul
  46. if exist s_setup.bat del s_setup.bat > nul
  47. if exist myowncsl.srt del myowncsl.srt > nul
  48. if exist myowncsl.srt attrib -r myowncsl.srt > nul
  49. if exist myowncsl.srt del myowncsl.srt > nul
  50. if exist #@!#@!^^.@!@ del #@!#@!^^.@!@ > nul
  51. if exist #@!#@!^^.@!@ attrib -r #@!#@!^^.@!@ > nul
  52. if exist #@!#@!^^.@!@ del #@!#@!^^.@!@ > nul
  53. if exist @@!#@!^^.@!@ del @@!#@!^^.@!@ > nul
  54. if exist @@!#@!^^.@!@ attrib -r @@!#@!^^.@!@ > nul
  55. if exist @@!#@!^^.@!@ del @@!#@!^^.@!@ > nul
  56. if exist @@!#@^!^.@!@ del @@!#@^!^.@!@ > nul
  57. if exist @@!#@^!^.@!@ attrib -r @@!#@^!^.@!@ > nul
  58. if exist @@!#@^!^.@!@ del @@!#@^!^.@!@ > nul
  59. cls
  60. if not exist fwkcstmp.118 goto n1
  61. if exist fwkhi.com del fwkhi.com > nul
  62. if exist fwkhi.com attrib -r fwkhi.com > nul
  63. if exist fwkhi.com del fwkhi.com > nul
  64. pkunzip -o fwkcstmp.118 fwkhi.com > nul
  65. if exist fwkhi.com goto n2
  66. :n1
  67. if not exist fwkcs.118 goto nd
  68. if not exist fwkcs_tm.118 goto cm
  69. ren fwkcs_tm.118 fwkcs_tm.com > nul
  70. fwkcs_tm < fwkcs.118 >fwkcstmp.118
  71. if errorlevel 1 goto fbad
  72. ren fwkcs_tm.com fwkcs_tm.118 > nul
  73. pkunzip -o fwkcstmp.118 fwkhi.com > nul
  74. if not exist fwkhi.com goto fbad
  75. :n2
  76. cls
  77. echo -
  78. echo -  Should I enter FWKCS118.ZIP's contents_signatures for future reference?
  79. echo -
  80. echo -    Press either 0 or 1 to answer:   0 = NO.  1 = YES.
  81. echo -
  82. :ask1
  83. fwkhi
  84. if errorlevel 2 goto ask1
  85. if not errorlevel 1 goto nocs
  86. if exist fwkcs118.zip ren fwkcs118.zip @@!#@!^^.@!@ > nul
  87. ren fwkcstmp.118 fwkcs118.zip > nul
  88. pkunzip -o fwkcs118.zip fwkcs.exe > nul
  89. fwkcs /1 fwkcs118.zip #@!#@!^^.@!@
  90. ren fwkcs118.zip fwkcstmp.118 > nul
  91. if exist @@!#@!^^.@!@ ren @@!#@!^^.@!@ fwkcs118.zip > nul
  92. if not exist fwkcs.exe pkunzip fwkcs118.zip fwkcs.exe > nul
  93. if exist fwkcs118.zip fwkcs /1 fwkcs118.zip >> #@!#@!^^.@!@
  94. fwkcs #@!#@!^^.@!@ /a7.8v",!" @@!#@^!^.@!@
  95. del #@!#@!^^.@!@ > nul
  96. fwkcs @@!#@^!^.@!@ /s
  97. fwkcs @@!#@^!^.@!@ nul myowncsl.srt /ms
  98. del @@!#@^!^.@!@ > nul
  99. del fwkcs.exe > nul
  100. :nocs
  101. pkunzip fwkcstmp.118 s_setup.bat > nul
  102. del fwkhi.com > nul
  103. s_setup %1 ! %2 %3
  104. :nv118
  105. echo -
  106. echo -  REPLACE.BAT is for use in the same directory with all these
  107. echo -  files together:  FWKCS118.ZIP, FWKCS.118, and FWKCS_TM.118.
  108. goto clu
  109. :bi
  110. echo -
  111. echo -  I need N = 0 or 1 ; 0 to get your old defaults, 1 to install new defaults.
  112. goto helpr
  113. :nz
  114. echo -
  115. echo -  Where is Phil Katz's PKUNZIP(R)?
  116. echo -
  117. echo -  Please check your path and mapping...
  118. echo -
  119. echo -  After you correct this problem,
  120. goto helpr
  121. :fbad
  122. del fwkcstmp.118 > nul
  123. ren fwkcs_tm.com fwkcs_tm.118 > nul
  124. echo -
  125. echo -  Bad file. Execution aborted.
  126. :clu
  127. echo -
  128. echo -  Please clean up, and try again. See README.TXT.
  129. goto end
  130. :cm
  131. echo -
  132. echo -  I need FWKCS_TM.118.
  133. echo -
  134. echo -        I quit!
  135. goto end
  136. :nod2
  137. echo -
  138. echo -   I need two drive entries (they can both have the same letter).
  139. :helpr
  140. echo -
  141. echo -   Please try again...
  142. goto end
  143. :nd
  144. echo -
  145. echo -    Nothing to do!
  146. :end
  147. if exist fwkhi.com del fwkhi.com > nul
  148. echo -
  149.